home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Games / Pentominoes 2.0 / Shell ƒ / environment.c < prev    next >
Encoding:
Text File  |  1995-07-15  |  3.1 KB  |  34 lines  |  [TEXT/MMCC]
  1. temp < gestalt8BitQD));
  2.  
  3.     isHuman=Gestalt(gestaltFSAttr, &gestalt_temp);
  4.     if (!((isHuman==noErr) && (gestalt_temp&(1<<gestaltHasFSSpecCalls))))
  5.         return kSystemTooOld;
  6.  
  7.     isHuman=Gestalt(gestaltStandardFileAttr, &gestalt_temp);
  8.     if (!((isHuman==noErr) && (gestalt_temp&(1<<gestaltStandardFile58))))
  9.         return kSystemTooOld;
  10.  
  11.     isHuman=Gestalt(gestaltNotificationMgrAttr, &gestalt_temp);
  12.     gHasNotificationManager=(!((isHuman) ||
  13.         (((gestalt_temp >> gestaltNotificationPresent) & 0x01) != 1)));
  14.     
  15.     isHuman=Gestalt(gestaltAppleEventsAttr, &gestalt_temp);
  16.     if (!((!isHuman) && (gestalt_temp&(1<<gestaltAppleEventsPresent))))
  17.         return kSystemTooOld;
  18.     
  19.     InstallRequiredAppleEvents();
  20.     
  21.     gForegroundWaitTime=0;            /* WaitNextEvent sleep time when we're in frgrnd */
  22.     gBackgroundWaitTime=100;        /* WaitNextEvent sleep time when we're in bkgrnd */
  23.     gDone=FALSE;                    /* TRUE if program is done (exit event loop) */
  24.     gInProgress=FALSE;                /* TRUE if progress bar is up */
  25.     gIsInBackground=FALSE;            /* TRUE if program is in background */
  26.     gPendingErrorRec.resultCode=allsWell;
  27.     gFrontWindowIndex=0;
  28.     gCustomCursor=FALSE;
  29.     gKludgeIter=0;
  30.     gNeedToOpenWindow=FALSE;
  31.  
  32.     return allsWell;
  33. }
  34.